home *** CD-ROM | disk | FTP | other *** search
/ Workbench Design / WB Collection.iso / workbench werkzeuge / icon tools / deft ii / sources / locale.e < prev    next >
Text File  |  1996-04-07  |  6KB  |  195 lines

  1. /****************************************************************
  2.    This file was created automatically by `FlexCat V1.3'
  3.    Do not edit by hand!
  4. ****************************************************************/
  5.  
  6. OPT MODULE
  7.  
  8.  
  9. ->*****
  10. ->** External modules
  11. ->*****
  12. MODULE 'locale' , 'libraries/locale'
  13. MODULE 'utility/tagitem'
  14.  
  15.  
  16. ->*****
  17. ->** Object definitions
  18. ->*****
  19. EXPORT OBJECT fc_type
  20.     PRIVATE
  21.         id    :    LONG
  22.         str    :    LONG
  23. ENDOBJECT
  24.  
  25. EXPORT OBJECT catalog_DeftII
  26.     PUBLIC
  27.         msg_DeftII_Error        :    PTR TO fc_type
  28.         msg_Missing_Muimaster_Library        :    PTR TO fc_type
  29.         msg_Missing_Icon_Library        :    PTR TO fc_type
  30.         msg_Missing_Prefs_File        :    PTR TO fc_type
  31.         msg_Wrong_Prefs_File        :    PTR TO fc_type
  32.         msg_OK        :    PTR TO fc_type
  33.         msg_Simple_OK        :    PTR TO fc_type
  34.         msg_DeftII_Request        :    PTR TO fc_type
  35.         msg_Yes_No        :    PTR TO fc_type
  36.         msg_Really_Quit        :    PTR TO fc_type
  37.         msg_Not_Enough_Memory        :    PTR TO fc_type
  38.         msg_Not_Enough_Chip_Memory        :    PTR TO fc_type
  39.         msg_Missing_Library        :    PTR TO fc_type
  40.         msg_Arexx_Port        :    PTR TO fc_type
  41.         msg_Internal_Problem        :    PTR TO fc_type
  42.         msg_About_DeftII        :    PTR TO fc_type
  43.         msg_About_Text        :    PTR TO fc_type
  44.         msg_Wrong_Path_Met        :    PTR TO fc_type
  45.         msg_Unknown_Arexx_Command        :    PTR TO fc_type
  46.         msg_File_Requester_Still_Opened        :    PTR TO fc_type
  47.         msg_AppDescription        :    PTR TO fc_type
  48.         msg_WI_main        :    PTR TO fc_type
  49.         msg_GR_default_tools        :    PTR TO fc_type
  50.         msg_LA_old_def_tool        :    PTR TO fc_type
  51.         msg_LA_new_def_tool        :    PTR TO fc_type
  52.         msg_BT_delete_def_tool        :    PTR TO fc_type
  53.         msg_GR_paths        :    PTR TO fc_type
  54.         msg_BT_delete_path        :    PTR TO fc_type
  55.         msg_LA_info        :    PTR TO fc_type
  56.         msg_TX_info        :    PTR TO fc_type
  57.         msg_GR_controls        :    PTR TO fc_type
  58.         msg_BT_go        :    PTR TO fc_type
  59.         msg_BT_stop        :    PTR TO fc_type
  60.         msg_BT_save_prefs        :    PTR TO fc_type
  61.         msg_BT_about        :    PTR TO fc_type
  62.         msg_BT_quit        :    PTR TO fc_type
  63. ENDOBJECT
  64.  
  65.  
  66. ->*****
  67. ->** Global variables
  68. ->*****
  69. DEF cat_DeftII : PTR TO catalog
  70.  
  71.  
  72. ->*****
  73. ->** Creation procedure for fc_type object
  74. ->*****
  75. PROC create( id , str : PTR TO CHAR ) OF fc_type
  76.  
  77.     self.id := id
  78.     self.str := str
  79.  
  80. ENDPROC
  81.  
  82.  
  83. ->*****
  84. ->** Procedure which returns the correct string according to the catalog
  85. ->*****
  86. PROC getstr() OF fc_type RETURN ( IF cat_DeftII THEN GetCatalogStr( cat_DeftII , self.id , self.str ) ELSE self.str )
  87.  
  88.  
  89. ->*****
  90. ->** Creation procedure for catalog_DeftII object
  91. ->*****
  92. PROC create() OF catalog_DeftII
  93.  
  94.     DEF fct : PTR TO fc_type
  95.  
  96.     cat_DeftII := NIL
  97.  
  98.     self.msg_DeftII_Error := NEW fct.create( 0 , 'Deft II error !' )
  99.     self.msg_Missing_Muimaster_Library := NEW fct.create( 1 , 'Can''t open muimaster.library !' )
  100.     self.msg_Missing_Icon_Library := NEW fct.create( 2 , 'Can''t open icon.library !' )
  101.     self.msg_Missing_Prefs_File := NEW fct.create( 3 , 'Can''t find preference file !' )
  102.     self.msg_Wrong_Prefs_File := NEW fct.create( 4 , 'Preference file is corrupted !' )
  103.     self.msg_OK := NEW fct.create( 5 , '*_OK' )
  104.     self.msg_Simple_OK := NEW fct.create( 6 , 'OK' )
  105.     self.msg_DeftII_Request := NEW fct.create( 7 , 'Deft II request !' )
  106.     self.msg_Yes_No := NEW fct.create( 8 , '*_Yes|_No' )
  107.     self.msg_Really_Quit := NEW fct.create( 9 , '\ecYou have modified the preferences\n' +
  108.     '\ecwithout saving the changes...\n' +
  109.     '\ecReally quit ?' )
  110.     self.msg_Not_Enough_Memory := NEW fct.create( 10 , 'Not enough memory !' )
  111.     self.msg_Not_Enough_Chip_Memory := NEW fct.create( 11 , 'Not enough chip memory !' )
  112.     self.msg_Missing_Library := NEW fct.create( 12 , 'Can''t open a needed library !' )
  113.     self.msg_Arexx_Port := NEW fct.create( 13 , 'Can''t create arexx port !' )
  114.     self.msg_Internal_Problem := NEW fct.create( 14 , 'Internal problem !' )
  115.     self.msg_About_DeftII := NEW fct.create( 15 , 'About Deft II...' )
  116.     self.msg_About_Text := NEW fct.create( 16 , '\ecDeft II is a giftware program.\n' +
  117.     '\ecI''m very interested in feedback of any kind.\n' +
  118.     '\n' +
  119.     '\ecSo don''t hesitate to contact me !\n' +
  120.     '\ec(see the doc for more details)\n' +
  121.     '\n' +
  122.     '\ecLionel Vintenat\n' +
  123.     '\ec(e-mail : vintenat@reseau.onecert.fr)' )
  124.     self.msg_Wrong_Path_Met := NEW fct.create( 17 , '\ecSome wrong paths were met during scan,\n' +
  125.     '\ecthey were removed from the path list.' )
  126.     self.msg_Unknown_Arexx_Command := NEW fct.create( 18 , 'Unknown arexx command received !' )
  127.     self.msg_File_Requester_Still_Opened := NEW fct.create( 19 , 'Can''t quit : a file requester is still opened !' )
  128.     self.msg_AppDescription := NEW fct.create( 20 , 'Program to easily change icon default tooltypes' )
  129.     self.msg_WI_main := NEW fct.create( 21 , 'Deft II v1.6, © 1994 Lionel Vintenat' )
  130.     self.msg_GR_default_tools := NEW fct.create( 22 , 'Default tools' )
  131.     self.msg_LA_old_def_tool := NEW fct.create( 23 , 'Old' )
  132.     self.msg_LA_new_def_tool := NEW fct.create( 24 , 'New' )
  133.     self.msg_BT_delete_def_tool := NEW fct.create( 25 , '_d Delete' )
  134.     self.msg_GR_paths := NEW fct.create( 26 , 'Paths' )
  135.     self.msg_BT_delete_path := NEW fct.create( 27 , '_l Delete' )
  136.     self.msg_LA_info := NEW fct.create( 28 , 'File' )
  137.     self.msg_TX_info := NEW fct.create( 29 , 'Boring...' )
  138.     self.msg_GR_controls := NEW fct.create( 30 , 'Deft II controls' )
  139.     self.msg_BT_go := NEW fct.create( 31 , '_g GO !!!' )
  140.     self.msg_BT_stop := NEW fct.create( 32 , '_s Stop' )
  141.     self.msg_BT_save_prefs := NEW fct.create( 33 , '_p Save prefs' )
  142.     self.msg_BT_about := NEW fct.create( 34 , '_a About' )
  143.     self.msg_BT_quit := NEW fct.create( 35 , '_q Quit' )
  144.  
  145. ENDPROC
  146.  
  147.  
  148. ->*****
  149. ->** Opening catalog procedure (exported)
  150. ->*****
  151. PROC open( loc = NIL : PTR TO locale , language = NIL : PTR TO CHAR ) OF catalog_DeftII
  152.  
  153.     DEF tag , tagarg
  154.  
  155.     self.close()
  156.  
  157.     IF ( localebase AND ( cat_DeftII = NIL ) )
  158.  
  159.         IF language
  160.  
  161.             tag := OC_LANGUAGE
  162.             tagarg := language
  163.  
  164.         ELSE
  165.  
  166.             tag:= TAG_IGNORE
  167.  
  168.         ENDIF
  169.  
  170.         cat_DeftII := OpenCatalogA( loc , 'DeftII.catalog' ,
  171.                                 [    OC_BUILTINLANGUAGE , 'english' ,
  172.                                     tag , tagarg ,
  173.                                     OC_VERSION , 5 ,
  174.                                     TAG_DONE    ] )
  175.  
  176.     ENDIF
  177.  
  178. ENDPROC
  179.  
  180.  
  181. ->*****
  182. ->** Closing catalog procedure
  183. ->*****
  184. PROC close() OF catalog_DeftII
  185.  
  186.     IF localebase THEN CloseCatalog( cat_DeftII )
  187.     cat_DeftII := NIL
  188.  
  189. ENDPROC
  190.  
  191.  
  192. /****************************************************************
  193.    End of the automatically created part!
  194. ****************************************************************/
  195.